﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class PorcivaFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As PorcivaBE
        Dim tmpPorciva As PorcivaBE = New PorcivaBE()
        Try
            With tmpPorciva
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .Excento = convertDTFromDb.ConvertShort(dr.Item("Excento"))
                .IdIva = convertDTFromDb.convertInt32(dr.Item("IdIva"))
                .Porcentaje = convertDTFromDb.ConvertDecimal(dr.Item("Porcentaje"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpPorciva
        Catch ex As Exception
            Throw
        Finally
            tmpPorciva = Nothing
        End Try
    End Function
End Class
